<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.p</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>5265</cardID>
<listID>3003</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>on resumeStackdisable menuItem "Print Text" of menu "File"disable menuItem "Print Image" of menu "File"enable menu "Edit"enable menu "Go"disable menuItem "Copy Text" of menu "Edit"disable menuItem "Copy Image" of menu "Edit"end resumeStackon openCardlock screenSend colorMe to this cardpass openCardunlock screenend openCardon closeCardglobal lastCard, lastBookput "Help" into lastBookput the number of this card into lastCardlock screenpass closeCardDisposeVideo -- in case one's already thereend closeCardon colorMeAddColor colorCard,stamp,30end colorMeon doMenu menuItemif menuItem is "Go Back" thenWTIgobackelse if menuItem is "Help" thenWTIhelpexit doMenuelse if menuItem is "Main" thenWTImainelse if menuItem is "Gallery" thenWTIgalleryelse if menuItem is "Explorer" thenWTIexploreelse if menuItem is "Credits" thenWTIcreditselse if menuItem is "Encyclopedia" thenWTIencyclelse if menuItem is "About HyperCard..." thenanswer "Coutries of the World from The Guinness Encyclopedia by Guinness Publishing"exit doMenuelse if menuItem is "Quit Countries" thendomenu "Quit HyperCard"exit doMenuelse if menuItem is "Languages" thengo to card 1 of stack "Guinness2:countries:language samples" in a new windowend ifpass doMenuend doMenuon closeStackAddColor removepass closeStackend closeStackon openStackglobal lastContextset lockScreen to trueAddColor installif lastContext is empty thenput "Countries of the World" into lastContextend ifdisable menuItem "Print Text" of menu "File"disable menuItem "Print Map" of menu "File"enable menu "Edit"-- enable menu "Go"disable menuItem "Copy Text" of menu "Edit"disable menuItem "Copy Map" of menu "Edit"pass openStackend openStackon DisposeVideoglobal movieNameif movieName is not empty then-- put windows() into xListif offset( movieName, windows() ) = 0 thenelseclose window movieNameend ifput empty into movieNameend ifend DisposeVideoon PlayMovie movieSName, pPathglobal movieNameset cursor to 4DisposeVideo -- in case one's already thereput "Guinness2:" & pPath & movieSName into MyMoovie-- put MyMoovie--QTMovie OpenMovie, windoid, MyMoovie, deepest, dontPaintWhite, closeOnFinishQTMovie OpenMovie, windoid, MyMoovie, deepest,,,,,,loopget the result-- put it into movieID-- put movieIDif "Error" is in it then-- put the resultanswer "Couldn't Play That Movie"exit PlayMovieelseput movieSName into movieNameend ifend PlayMovieon WTInextgo to nextend WTInexton WTIpreviousgo to previousend WTIpreviouson WTIprintTextglobal lastContextprint card field Helpprint card field lastContextend WTIprintTexton WTIquitdoMenu "Quit HyperCard"end WTIquiton WTIgoback-- global lastCard, lastBook-- go to card lastCard of lastBookgo to recent cardend WTIgobackon WTIgotopage CardN-- go to card CardNanswer "go to card # " & CardNend WTIgotopageon toggleContext bnameglobal lastContext-- put bname && lastContexthide card field lastContextshow card field bnameput bname into lastContextend toggleContext</script>
